%salary=(
	 boss      => 1_000,
	 secretary => 300,
	 admin     => 600,
	 janitor   => 150,
	);

print
  map {"$_ earns $salary{$_} \n" }
  sort { $salary{$a} <=> $salary{$b} }
  grep { $salary{$_} > 500 }
  keys %salary;