use warnings;
use vars qw($VERSION);
$VERSION="0.02";

##</code><code>##

# DANGER! this initially used keys %$line, but order can't be guaranteed.
# my (@keys,@values);
# for (keys %$line)
# {
#     push @keys,$_;
#     push @values,$$line{$_}
# }
my @keys = keys %$line;
my @values = map $$_, values %$line;

##</code><code>##

# map { "?" } (0..scalar @values-1)
( "?" ) x @values