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); 

##</code><code>##

Can't use string ("L13923") as an ARRAY ref while "strict refs" in use at Lesson10.pl line 32.