You'll need to pass a reference to the array. (See the perlref manpage for more.)

A few hints along this path:

# In the package call:
$SP->print_filename(\@array,$arg1,$arg2);

# In print_filename():
while(($key,$value) = each(%object)) {
    if ( ref $value ) {
     print "$key => " . join(', ', @$value ) . "\n";
    } else {
     print "$key => $value\n";
    }
}
[download]