use Data::Dumper;

my @array  = split "(.)" , $work[3];
print Dumper \@array;