#!/usr/bin/perl
use strict;
use warnings;
foreach my $server qw( oldserver newserver strangeserver ) {
    system "pscp workscript.pl user\@$server:/tmp/workscript.pl";
}

##</code><code>##

    system "plink user\@$server perl /tmp/workscript.pl -foo -bar -kaboom";