my @keys = qw ( ID Dept Fax);
print ul( map { li("$_: $data{$_}") } @keys);