use strict;
use warnings;

my $arref = [['text1','Num1'],['text2','Num2']];


sub printargs_one {
        my ($arg1) = (shift);
        my ($arg2) = (shift);
        print $arg1 , "," , $arg2 , "\n";
}
sub printargs_two {
        my ($arg1,$arg2) = @{$_};
        print $arg1 , "," , $arg2 , "\n";
}

foreach (@{$arref}){
         printargs_one(${$_}[0],${$_}[1]);
}

map { printargs_two $_ } @{$arref};