print "\nH1. Attempt to list files ";
foreach $file ( @{$ls1}, @{$ls2}, @{$ls3}, @{$ls4} )    { 
    print "\nH1. $file ";
}