fork download 
  1. use strict;
  2.         my $key = 'welcome';
  3.         my %data = (
  4.                 'this' => qw(that), 
  5.                 'tom' => qw(and jerry),
  6.                 'welcome' => q(Hello World),
  7.                 'zip' => q(welcome),
  8.         );
  9.         my @data = keys %data;
  10.         print "$data{$key}\n";
  11.         exit;
  12.  
Success #stdin #stdout 0s 4596KB
comments (?)
stdin 
Standard input is empty
stdout 

	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			


			                        
			
			

				

	
					
					 https://ideone.com/nojP2
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Perl (perl 5.28.1)

					

					

						
created:
								
						
14 years ago

					

					

						
visibility:

						

							 public																												
							
							

								
							

						

					

										
										

					
					 Share or Embed source code
					
					
					
					

						
						
						
						
						
						
						
					

					
						
	
	
	
	
					
					
					
					
					 
					
					
					
					 
					
					
					
					
					
					

					

					

					
						
					

					


	
Discover > Sphere Engine API

	
The brand new service which powers Ideone!

	
	
Discover > IDE Widget

    
Widget for compiling and running the source code in a web browser!