foreach my $key (keys $aliases) {
	print "\$aliases{$key} = $alias{$key}\n";
}