sub clean_list {


	my $type_of_arg=ref(@{ $_[0] });

	print "Type of argument passed is: $type_of_arg\n";
}
open(IN, '<', 'ex5.acc') or die "Could not read file\n";
my @initial_array = <IN>;
close IN;
clean_list(@initial_array); 
clean_list(\@initial_array);