sub my_retrieve {
	my $File = $_[0];
	my $arrayref = retrieve("$File");

	return @{$arrayref};	
}