use strict; my %vars = (    v1 => 9.81221,    v2 => 3.13221,    v7 => -1,    h3 => 'a',    x2 => 'ÄÄÄÄ' ); print $_ for (sort keys %vars);