これでいいのか

sub getprof{
my $id = shift;
my @list = ();
for my $y (2..9) {
　　for my $x (2..9) {
　　　　my $be = ($id * 3 * $x * $y - $x + $y + 5) * 100 + $x*10 + $y;
　　　　push(@list, $be);
　　}
}
　　for my $be (sort {$a<=>$b} @list) {
　　　　print "http://be.2ch.net/test/p.php?i=$be\n";
　　}
}


>>139
ひどい
最初から教えてくれればいいのに〜