$val = 12345;
@valary = split('', $val);
foreach $item (@valary)
{
    print $item,qq(\n);
}