Serialize a perl array into a php array

phpArraySerialization.pl

#!/usr/bin/perl

use strict;
use warnings;

sub serializeToPhpArray {
   my @arr = @{$_[0]};
   my $content = "a:".@arr.":{";
   for (my $i=0; $i < @arr; $i++) {
        my $val = $arr[$i];
        $content .="i:".$i.";s:".length($val).":\"".$val."\";";
    }
    $content .= "}";
    return $content
}

my @cccc = ("caca/ca.php", "b/b.php","aaaa/asas.php");
print serializeToPhpArray(\@cccc);