use List::MoreUtils qw( pairwise );

my @result = pairwise { $a .";". $b } @printername, @ipaddresses;