consider this

chomp, push @a, [split /:/, $_] for <DATA>;

print "name? " and chomp($i = <STDIN>);

@$_[0] =~/$i/i and print "\n@$_[0]\n@$_[1] (@$_[2]) @$_[3]\$\n" for @a
+;


__DATA__
Seamus McGuire:The Wishing Tree:09-14-2000:14.95
Pat Kilbride:Loose Cannon:07-02-2000:15.95
Kevin Crawford:Seasons of Mists:06-23-2000:16.95
Prince:Purple Rain:01-01-1995:3.95
Meat Loaf:Bat out of Jell:03-03-1980:11.95
[download]