Select Code to Download

$_ = "##";
m/(##)/;
$1 = "Hello";
Modification of a read-only value attempted at - line 3.

@list = ($1, $2, $3, $4, $5);
foreach $i (@list)
{
    $i = int rand( @numb +1 );
     pop @numb;
}