my @keys = qw(start stop step); for my $type (@keys) { print $point->{$type}, "\t"; }