print heMentions(\@array), "\n";

sub heMentions {
    my( $arrayref ) = @_;
    my $width = 0;
    my $height = @$arrayref;
    for my $ref ( @$arrayref ){
        my $wee = @$ref;
        if( $wee > $width ){
            $width = $wee;
        }
    }
    return "Dimensions are : $height x $width";
}
[download]