# print the data
sub printer {
    my @array = @_;
    foreach(@array) {
        print "@{$_}\n";
    }
}