perl -e '@hosts = ( map { $_ . q[.example.com] } qw/ foo bar www / ); system( q[scp], q[-r], @ARGV, sprintf(q[%s:remotedir], $_) ) foreach @hosts;' /tmp/foo