$ perl -e'                           # 1
   my %h = (                         # 2
      a => 1,                        # 3
      b => warn("This is line 4"),   # 4
      c => 1                         # 5
   );                                # 6
'                                    # 7
This is line 4 at -e line 2.