初歩的質問ですみません。Perlで挿入ソートをしたいです。
sort関数を使うのではなく、自分で挿入ソートのアルゴリズムを作る。
次のようにしましたが駄目です。どこが悪くてこうなってるのか教えてください。

#!C:\Perl\bin\perl

print "５つの数を挿入ソート。\n";

print "Aを入力してください。\n";
$num1=<STDIN>;
chop ($num1);
#省略してますが、同じやり方でB、C、D、Eも$num2から$num5に入れてます。

@list=("dummy",$num1,$num2,$num3,$num4,$num5);
$n=6;
for($i=1;$i<=$n;$i++)
{
$j=$i;
while($j>=1 and $list[$j-1] > $list[$j])
{
$tmp=$list[$j];
$list[$n]=$list[$n-1];
$list[$n-1]=$tmp;
$j--;
}
}
print "$list[1] $list[2] $list[3] $list[4] $list[5]";