#!/usr/bin/perl
use strict;
use warnings;

my @array=();
my $diff_file="/tmp/diff.txt";

while (<STDIN>) {
        last if ($_ =~ /^\s*$/); # Exit if it was just spaces (or just an enter)
        print "You typed: $_";
        push @array,$_;

    }
print "\@array = @array\n";

foreach my $i (@array) {
#print $i
system('/usr/bin/scp', "user\@$i:/tmp/zz.txt", "/tmp/zz_$i\.txt");
}
foreach my $i (@array) {
system('diff /tmp/zz.txt /tmp/zz_$i\.txt |tee -a $diff_file');
}