perl -E '\@h{1..(@a=(1..3,5,6,7))+1};delete@h{@a};say%h'