sub getdata
{
	my $filename = "<" . shift;
	open (HANDLE,$filename) or die "Cant Open $filename: $!";
	my @final = map{chomp; [split/,/]} <HANDLE>;
	close HANDLE;
	return (@final);
}