Movies as code

#!/usr/bin/perl

@personality = ("Dr Jekyll", "Mr Hyde");
$friend = "Dr Lanyon";

print("$friend: Jekyll your research `unscientific balderdash`.n");
$research = "Unscientific Balderdash";

if ($research != "Unscientific Balderdash"){
    $personality = ("@personality[1]");
} else {
    $personality = ("@personality[0]");
}

if ($personality == @personality[1]){
    $personality = "evil";
} else {
    $personality = "good"
}
print("Dr Jekyll's research created only $personalityn");