#!/usr/bin/perl -w


my @pics=glob("*.jpg");
my $long_list="(";

foreach $pic (@pics) {
	if ($pic=~s/^(\d+)\.jpg/$1/) {
		if ($other_count==10) {
			$long_list.="\n";
			$other_count=0;
		}
		$long_list.="$pic, ";
		$count++;
		$other_count++;
	}
}

# print "$long_list\n";
$long_list=~s/(.*), $/$1/;
$long_list.=")";

print "$long_list\n$count\n";
