#!/usr/bin/perl
use warnings;
use strict;

my @array = (
    [ qw(Hallo Welt wie geht es dir) ],
    [ qw(Och mir geht es ganz gut)   ],
);

print scalar @array, "\n";