my @router = ( [ qw/1 r1 20.100.2.100 router/ ], [ qw/2 r2 20.100.2.99 router/ ], [ qw/3 r3 20.100.2.80 router/ ], ); for my $router ( @router ) { getRouter ( @{ $router } ); }