daily pastebin goal
39%
SHARE
TWEET

Untitled

a guest Aug 12th, 2017 51 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl -w
  2.  
  3. use strict;
  4.  
  5. my $test = ();
  6. my $pwet1 = "test1";
  7.  
  8.  
  9. for (my $i = 1; $i < 10; $i++)
  10. {
  11.   $test->{$i}->{"PWET"}->{"POULPE"} = $pwet1.$i;
  12. }
  13. print "test";
RAW Paste Data
Top