use warnings;
use strict;

for my $file (@ARGV) {
    print "Preforming sha1 on $file\n";
    system( "sha1sum $file >> data" );
}

##</code><code>##

code.pl file1 file2 file3