use 5.010;
use strict;
use warnings;

use Data::Dumper;

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

print Dumper \@nametape;