my @perlscripts;
foreach (@files)
{
    open HANDLE, $_ or die "can't open $_";
    push @perlscripts, $_ if <HANDLE> =~ /^#!/;
    close HANDLE;
}
print $_, "\n" for @perlscripts;