Dereference the arrays:

use warnings;
use strict;

my  $arref = [
    ['text1','Num1'],
    ['text2','Num2'],
    #and so on
    ];

for (@{ $arref }) {
    print "----\n";
    foo($_);
}

sub foo {
    my $aref = shift;
    for (@{ $aref }) {
        print "$_\n";
    }
}

__END__

----
text1
Num1
----
text2
Num2
[download]

• perldsc
• perlreftut
• perlsub