#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw(min max);

my @HD = (0.153488905,	0.153488905,	3.688879454);
my $testing = "HD";
print @($testing); #this does not work.