But, I want to print the value @values without using any modules

What for? Homework? How 'bout something like

for my $h (@results) {
    print "{",
      (join ", ",
          map "'$_' => '$h->{$_}'", keys %$h),
      "}\n";
}
[download]

anyway?