$num = 12345;
# empties the array
@a = ($num);
# or
$a[0] = $num;

print '$a[0] is ', $a[0], "\n";
[download]