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