You declaration of the list is missing quotes around the names (use warnings;). In addition to join, TMTOWTDI:

use strict;
use warnings;

my @student_list = qw(tom harry jane amelia);

{
    local $" = ',';
    print "@student_list\n";
}
[download]