my @items = qw(muthuma corion foo);

my $template = '(N/a*)*';

my $packed = pack $template, @ARGV;

print ">>$_<<" for unpack $template, $packed;