title: Perl array(@data) to variables($data)
body: <p>I am doing socket programming.
  The data ($ data) received from the socket contains 4 bytes of length data + json data.
  I want to trim the length and only parse the json.</p>
  
  <p>I have completed the code and it works fine. But I wonder if there is a more efficient way (algorithm).</p>
  
  <p>Is there an efficient way to move arrays to variables in perl?</p>
  
  <pre><code>@tmpp = split(//,$data); #data = socket data
  
  my $t1 = sprintf("%02x%02x%02x%02x",ord($tmpp[0]),ord($tmpp[1]),ord($tmpp[2]),ord($tmpp[3])); 
  $t1 = hex($t1); #t1 = length 
  
  my $json;
  my @tmp = @tmpp[0..-1];
  foreach(@tmp){ $json .= $_;}&lt;br&gt;
  print $json;
  
  Ok Print ; 
  </code></pre>