foreach my $fid(@fileid)
{
    print "$fid ";      ##Shows e.g. 1 1  9 4 8 5 6 0
}

##</code><code>##

for (my $i=0; $i<length($line[0]); $i++)
{
    $fid = substr($line[0], $i, 1);
    print "$fid ";
}