#!/usr/bin/perl
use strict ;
my @Name;
my $Name;

my $X = 1;
my $Y = 2;
my $Data=":2-Lou-14:4-Bobby:3-Tine13:1-jack 23:";
my $Info = ($Data =~ /:$Y-(.*?):/);
$Name[$X,$Y] = $1;
print ">$Name[$X,$Y] is at X$X,Y$Y<\n";

[Non-text portions of this message have been removed]