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;