sub PrintList
{
my $line = $_[0];
my my @lines;
(@lines)=split(/\/n/,$line);