fork download
  1. #!/usr/bin/perl
  2. # your code goes here
  3. use strict;
  4.  
  5. my $hoge = {
  6. huga => { piyo => 'Hello World!' }
  7. };
  8.  
  9. print $hoge->{'huga'}->{'piyo'};
Success #stdin #stdout 0s 3564KB
stdin
Standard input is empty
stdout
Hello World!