Dear Monks

Is there a way to pass all keys from 1 hash, as one string, to a subroutine in a one-liner ?
Here is the multi-line example

use warnings ;
use strict ;

my %h = ( 'a' => 1, 'b' => 1, 'c' => 1 ) ;
my $str ;                                
foreach ( keys %h ) {  
  $str .= "$_ "  
}
xyz( $str ) ;

sub xyz {
  print shift ;
}
[download]

So, I'm looking for something like

use warnings ;
use strict ;

my %h = ( 'a' => 1, 'b' => 1, 'c' => 1 ) ;
xyz( "keys(%h)" ) ;

sub xyz {
  print shift ;
}
[download]

Doesn't work of course!

Any suggestions ?

Thnx
LuCa

UPDATE: thnx a lot!!