use 5.010;
use strict;
use warnings;
use syntax 'qwa';

use Data::Dumper;

my @nametape = (
	qwa( 24 101 ),
	qwa( 25 102 ),
	qwa( 23 103 ),
);

print Dumper \@nametape;

##</code><code>##

use 5.010;
use strict;
use warnings;

use Data::Dumper;

my @nametape = map [split ":"] => qw(
	24:101
	25:102
	23:103
);

print Dumper \@nametape;