my @num;
for (1..10) {
    $num[$_] = $_;
}